Dialog na pripojenie k PC v sieti

Otázka od: Ing. Slavomir Timko

10. 12. 2003 10:43

Zdravim

Mam taky problem: Na prehladavanie adresara pouzivam funkcie FindFirst,
FindNext, FindClose. Na lokalnom stroji to funguje OK, avsak ak dam
prehladat adresar na inom PC v LAN, tak FindFirst vrati chybu 5 - Access
denied, pripadne 1326 - Logon failure (teda ak som sa k PC predtym
nepripojil inym sposobom). Neviete, ako vyvolat dialog na zadanie loginu a
hesla na pripojenie k PC v LAN?

Vdaka za odpovede
Slavo

W2K Prof, D6Ent

Odpovedá: Ludek ZITA

10. 12. 2003 11:48

----- Original Message -----
From: "Ing. Slavomir Timko" <timko@novisoft.sk>
> .......
> Neviete, ako vyvolat dialog na zadanie loginu a
> hesla na pripojenie k PC v LAN?

Ahoj.
Zkus :
function Connect(const Path, UserName, Password: string): boolean;
var
  NetRes: TNetResource;
  dw: DWORD;
begin
  ZeroMemory(@NetRes, sizeof(NetRes));
  NetRes.dwType := RESOURCETYPE_ANY;
  NetRes.lpLocalName := '';
  NetRes.lpRemoteName := PChar(Path);
  NetRes.lpProvider := nil;
  dw := WNetAddConnection2(NetRes, PChar(Password), PChar(UserName), 0);
  if (dw <> NO_ERROR) then
  begin
    Result := False;
    exit;
  end
  else
    Result := True;
end;

a "obal" si to vlastnim dialogem.

Ludek